<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="local-6989586621679070580"><span id="local-6989586621679070581"></span></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Clock.Internal.UniversalTime</span><span>
</span><span id="line-2"></span><span>    </span><span class="hs-special">(</span><span>
</span><span id="line-3"></span><span>    </span><span class="annot"><span class="hs-comment">-- * Universal Time</span></span><span>
</span><span id="line-4"></span><span>    </span><span class="annot"><span class="hs-comment">-- | Time as measured by the Earth.</span></span><span>
</span><span id="line-5"></span><span>    </span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#UniversalTime"><span class="hs-identifier">UniversalTime</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-6"></span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-7"></span><span>
</span><span id="line-8"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.html#"><span class="hs-identifier">Data.Typeable</span></a></span><span>
</span><span id="line-9"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Data.html#"><span class="hs-identifier">Data.Data</span></a></span><span>
</span><span id="line-10"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../deepseq/src/Control.DeepSeq.html#"><span class="hs-identifier">Control.DeepSeq</span></a></span><span>
</span><span id="line-11"></span><span>
</span><span id="line-12"></span><span>
</span><span id="line-13"></span><span class="hs-comment">-- | The Modified Julian Date is the day with the fraction of the day, measured from UT midnight.</span><span>
</span><span id="line-14"></span><span class="hs-comment">-- It's used to represent UT1, which is time as measured by the earth's rotation, adjusted for various wobbles.</span><span>
</span><span id="line-15"></span><span class="hs-keyword">newtype</span><span> </span><span id="UniversalTime"><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#UniversalTime"><span class="hs-identifier hs-var">UniversalTime</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ModJulianDate"><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#ModJulianDate"><span class="hs-identifier hs-var">ModJulianDate</span></a></span></span><span> </span><span class="hs-special">{</span><span id="getModJulianDate"><span class="annot"><span class="annottext">UniversalTime -&gt; Rational
</span><a href="Data.Time.Clock.Internal.UniversalTime.html#getModJulianDate"><span class="hs-identifier hs-var hs-var">getModJulianDate</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Real.html#Rational"><span class="hs-identifier hs-type">Rational</span></a></span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679070570"><span id="local-6989586621679070576"><span class="annot"><span class="annottext">UniversalTime -&gt; UniversalTime -&gt; Bool
(UniversalTime -&gt; UniversalTime -&gt; Bool)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; Bool) -&gt; Eq UniversalTime
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: UniversalTime -&gt; UniversalTime -&gt; Bool
$c/= :: UniversalTime -&gt; UniversalTime -&gt; Bool
== :: UniversalTime -&gt; UniversalTime -&gt; Bool
$c== :: UniversalTime -&gt; UniversalTime -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679070529"><span id="local-6989586621679070534"><span id="local-6989586621679070539"><span id="local-6989586621679070544"><span id="local-6989586621679070549"><span id="local-6989586621679070554"><span id="local-6989586621679070560"><span class="annot"><span class="annottext">Eq UniversalTime
Eq UniversalTime
-&gt; (UniversalTime -&gt; UniversalTime -&gt; Ordering)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; Bool)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; Bool)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; Bool)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; Bool)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; UniversalTime)
-&gt; (UniversalTime -&gt; UniversalTime -&gt; UniversalTime)
-&gt; Ord UniversalTime
UniversalTime -&gt; UniversalTime -&gt; Bool
UniversalTime -&gt; UniversalTime -&gt; Ordering
UniversalTime -&gt; UniversalTime -&gt; UniversalTime
forall a.
Eq a
-&gt; (a -&gt; a -&gt; Ordering)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; a)
-&gt; (a -&gt; a -&gt; a)
-&gt; Ord a
min :: UniversalTime -&gt; UniversalTime -&gt; UniversalTime
$cmin :: UniversalTime -&gt; UniversalTime -&gt; UniversalTime
max :: UniversalTime -&gt; UniversalTime -&gt; UniversalTime
$cmax :: UniversalTime -&gt; UniversalTime -&gt; UniversalTime
&gt;= :: UniversalTime -&gt; UniversalTime -&gt; Bool
$c&gt;= :: UniversalTime -&gt; UniversalTime -&gt; Bool
&gt; :: UniversalTime -&gt; UniversalTime -&gt; Bool
$c&gt; :: UniversalTime -&gt; UniversalTime -&gt; Bool
&lt;= :: UniversalTime -&gt; UniversalTime -&gt; Bool
$c&lt;= :: UniversalTime -&gt; UniversalTime -&gt; Bool
&lt; :: UniversalTime -&gt; UniversalTime -&gt; Bool
$c&lt; :: UniversalTime -&gt; UniversalTime -&gt; Bool
compare :: UniversalTime -&gt; UniversalTime -&gt; Ordering
$ccompare :: UniversalTime -&gt; UniversalTime -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Ord</span></span></span></span></span></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679070486"><span id="local-6989586621679070488"><span id="local-6989586621679070490"><span id="local-6989586621679070492"><span id="local-6989586621679070494"><span id="local-6989586621679070496"><span id="local-6989586621679070498"><span id="local-6989586621679070500"><span id="local-6989586621679070502"><span id="local-6989586621679070504"><span id="local-6989586621679070506"><span id="local-6989586621679070508"><span id="local-6989586621679070513"><span id="local-6989586621679070519"><span class="annot"><span class="annottext">Typeable UniversalTime
Typeable UniversalTime
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; UniversalTime -&gt; c UniversalTime)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c UniversalTime)
-&gt; (UniversalTime -&gt; Constr)
-&gt; (UniversalTime -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c UniversalTime))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e))
    -&gt; Maybe (c UniversalTime))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; UniversalTime -&gt; UniversalTime)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; [u])
-&gt; (forall u.
    Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime)
-&gt; Data UniversalTime
UniversalTime -&gt; DataType
UniversalTime -&gt; Constr
(forall b. Data b =&gt; b -&gt; b) -&gt; UniversalTime -&gt; UniversalTime
forall a.
Typeable a
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; a -&gt; c a)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c a)
-&gt; (a -&gt; Constr)
-&gt; (a -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c a))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c a))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; a -&gt; a)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; [u])
-&gt; (forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; Data a
forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; u
forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; [u]
forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r
forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r
forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c UniversalTime
forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; UniversalTime -&gt; c UniversalTime
forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c UniversalTime)
forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e))
-&gt; Maybe (c UniversalTime)
gmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
$cgmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
gmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
$cgmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
gmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
$cgmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; UniversalTime -&gt; m UniversalTime
gmapQi :: forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; u
$cgmapQi :: forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; u
gmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; [u]
$cgmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; UniversalTime -&gt; [u]
gmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r
$cgmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r
gmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r
$cgmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; UniversalTime -&gt; r
gmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; UniversalTime -&gt; UniversalTime
$cgmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; UniversalTime -&gt; UniversalTime
dataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e))
-&gt; Maybe (c UniversalTime)
$cdataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e))
-&gt; Maybe (c UniversalTime)
dataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c UniversalTime)
$cdataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c UniversalTime)
dataTypeOf :: UniversalTime -&gt; DataType
$cdataTypeOf :: UniversalTime -&gt; DataType
toConstr :: UniversalTime -&gt; Constr
$ctoConstr :: UniversalTime -&gt; Constr
gunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c UniversalTime
$cgunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c UniversalTime
gfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; UniversalTime -&gt; c UniversalTime
$cgfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; UniversalTime -&gt; c UniversalTime
</span><a href="../../base/src/Data.Data.html#Data"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Data</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.Internal.html#Typeable"><span class="hs-identifier hs-type">Typeable</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-16"></span><span>
</span><span id="line-17"></span><span class="hs-comment">-- necessary because H98 doesn't have &quot;cunning newtype&quot; derivation</span><span>
</span><span id="line-18"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../deepseq/src/Control.DeepSeq.html#NFData"><span class="hs-identifier hs-type">NFData</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#UniversalTime"><span class="hs-identifier hs-type">UniversalTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-19"></span><span>    </span><span id="local-6989586621679070476"><span class="annot"><span class="annottext">rnf :: UniversalTime -&gt; ()
</span><a href="../../deepseq/src/Control.DeepSeq.html#rnf"><span class="hs-identifier hs-var hs-var hs-var hs-var">rnf</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.UniversalTime.html#ModJulianDate"><span class="hs-identifier hs-type">ModJulianDate</span></a></span><span> </span><span id="local-6989586621679070474"><span class="annot"><span class="annottext">Rational
</span><a href="#local-6989586621679070474"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Rational -&gt; ()
forall a. NFData a =&gt; a -&gt; ()
</span><a href="../../deepseq/src/Control.DeepSeq.html#rnf"><span class="hs-identifier hs-var">rnf</span></a></span><span> </span><span class="annot"><span class="annottext">Rational
</span><a href="#local-6989586621679070474"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-20"></span></pre></body></html>